Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Bombardier_PC/BSCRIPTS.CST/00003_Script_planes menu

Text File | 1999-04-25 | 4KB | 131 lines

-- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
-- Developed for Bombardier, Inc.
--
-- All programming developed by:
-- Robert Fabricant, Valerie Valoueva, Ossi Shaked,
-- Henry Sauvageot, Chris Howell & Chris Girand
--
-- Use of this code by parties other than @radical.media, inc. or their
--agents
-- without the express written consent of @radical.media, inc. AND Concurrent
-- New Media Group, L.L.C. is strictly prohibited.
------------------------------------------------------


--This behavior changes the planes menu item image on rollover and mouseUp and passes the mouseUp event to the castMember script.Each item has 4 states:
--
--1) neutral: when it's not selected and not rolled over
--2)rolledOver: when it's not selected and rolled over
--3)hilited: when it's selected and rolled over
--4)selected: when it's selected and not rolled over
--
--Corresponding castMembers are always located in this particular order in the internal cast.It makes it possible to switch between them depending on the item's state by manipulating their castNum. So,in order to change the item's image when you go from, say, neutral to rolledOver state, all you have to do is to increase the item's sprite castNum by 1.
-------------------------------------------------------
property rolledOver,selected
global gPlane, gPImage

on getbehaviorDescription
  return "changes the image on rollover"
end

on new me
  --find out which menu Item is selected in the planes menu and save its sprite Number and its castMember Number in global variables gPlane and gPImage

  set mySprite = the spriteNum of me
  puppetSprite mySprite, false
  set aName = the name of member the member of sprite mySprite
  if aName contains "hil" then
    set gPlane = mySprite
    set gPImage = the castnum of sprite gPlane-2
  end if
  set rolledOver = FALSE
  set selected = FALSE

end




on mouseEnter me

  if not rolledOver then

    if gPlane <> the spritenum of me then
      set the castnum of sprite the spritenum of me to the castnum of sprite the spritenum of me + 1

    else
      if the castnum of sprite the spritenum of me <> gPImage+2 then
        set the castnum of sprite the spritenum of me to  the castnum of sprite the spritenum of me -1
      end if
    end if

    set the ink of sprite the spritenum of me to 0

    if gPlane <> (the spritenum of me) and gPlane <> "" then
      set the castnum of sprite gPlane to gPImage+3
      set the ink of sprite gPlane to 39
    end if


    updatestage
    puppetsound 3, "mouse3"
    set rolledOver = TRUE
  end if

end



on mouseleave me

  if rolledOver then
    if gPlane <> the spritenum of me then
      set the castnum of sprite the spritenum of me to  the castnum of sprite the spritenum of me -1
      set the ink of sprite the spritenum of me to 39
      resetSelectedItem me
      updatestage
    end if
    set rolledOver = FALSE
  end if

end

on resetSelectedItem me
  --  check if mouse is not over the planes menu and reselect the current plane in the planes menu if this is the case

  set lastMenuItemSprNum = getSpriteNumFromMemberName ("anchor")+1
  set maxLocV = the bottom of sprite lastMenuItemSprNum
  if gPlane <> the spritenum of me and gPlane <> "" and ¼
     (the mouseh<=598 or the mouseh >= 762 or the mousev <=84 ¼
     or the mousev >= maxLocV) then
    set the castnum of sprite gPlane to gPImage+2
    set the ink of sprite gPlane to 0
    puppetsound 3, "mouse3"
  end if
end

--on mouseup me
--  global comeFromQTVR
--
--  if rolledOver and not selected then
--    set selected = TRUE
--    set comeFromQTVR = FALSE
--    deselect menuController --this closes all bottom submenues if they were open
--    if gPlane <> the spritenum of me then
--      set gPlane = the spritenum of me
--      set gPImage = the castnum of sprite the spritenum of me -1
--    end if
--    set the castnum of sprite the spritenum of me to  the castnum of sprite the spritenum of me +1
--    set the ink of sprite the spritenum of me to 0
--
--    sound stop(1)
--    sound stop(2)
--    --  sendAllSprites(#CDSmallMenuPuppetsOff)
--    --  sendAllSprites(#CDMenuPuppetsOff)
--    --  sendAllSprites(#layoutPuppetsOff)
--    pass
--  end if
--
--end
--